home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 7
- Top = 22
- Hint = 'Exit Demonstration program'
- BorderIcons = [biSystemMenu, biMinimize]
- BorderStyle = bsSingle
- Caption = 'TSQLBuilder Component & Property Editor Demonstration'
- ClientHeight = 400
- ClientWidth = 620
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Position = poScreenCenter
- OnCloseQuery = FormCloseQuery
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 14
- object sbBuildSQL: TSpeedButton
- Left = 491
- Top = 129
- Width = 124
- Height = 41
- Hint = 'Use SQLBuilder'
- Caption = '&Build SQL'
- Font.Color = clBlack
- Font.Height = -16
- Font.Name = 'Arial'
- Font.Style = []
- Glyph.Data = {
- B0010000424DB001000000000000760000002800000018000000180000000100
- 0400000000002001000000000000000000001000000000000000000000000000
- 8000008000000080800080000000800080008080000080808000C0C0C0000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00888880FF0819
- 18888888888883000FF0819198888888888830FFFF0019190000000000080F00
- FF11919BFBFBFBFBFB0800BF0F0019BFBFBFBFBFBF0800FB0F001BFBFBFBFBFB
- FB0880B0F03FBFBFB00FBFBFBF0880000300FB0000FB00000B0880700F00B00F
- 000F00BFBF088700FB00F000000B00FBFB08807FB000B00FB00F00BFBF0880FB
- 000BF00BF00B00FBFB0880BB00BFB00FB00F00BFBF0880FB0000F00BF00B00FB
- FB0880BFB000BF0000BF00BFBF0880FBFBFBFBFBFBFBFBFBFB0880BFBFBFBFBF
- BFBFBFBFBF0880FBFBFBFBFBFBFBFBFBFB0880BFBFBFBFBFBFBFBFBFBF088000
- 0000000000000000000880EEEEE0EEEEEEEEE0EEEE0880EEEEE0EEEEEEEEE0EE
- EE08800000000000000000000008888888888888888888888888000000000000
- 0000000000000000000000000000000000000000}
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Spacing = -1
- OnClick = sbBuildSQLClick
- end
- object Bevel1: TBevel
- Left = 494
- Top = 247
- Width = 121
- Height = 147
- ParentShowHint = False
- Shape = bsFrame
- ShowHint = False
- end
- object Label2: TLabel
- Left = 213
- Top = 4
- Width = 70
- Height = 16
- Caption = 'Query Text'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- end
- object Label3: TLabel
- Left = 207
- Top = 179
- Width = 81
- Height = 16
- Caption = 'Query Result'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- end
- object Label4: TLabel
- Left = 486
- Top = 44
- Width = 137
- Height = 82
- AutoSize = False
- Caption =
- 'Set the options and click the BuildSQL button to let SqlBuilder ' +
- 'visually build your SQL queries.'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsUnderline]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- Transparent = True
- WordWrap = True
- end
- object SpeedButton1: TSpeedButton
- Left = 583
- Top = 2
- Width = 34
- Height = 36
- Hint = 'Exit demonstration program'
- Font.Color = clBlack
- Font.Height = -15
- Font.Name = 'Arial'
- Font.Style = []
- Glyph.Data = {
- CE070000424DCE07000000000000360000002800000024000000120000000100
- 1800000000009807000000000000000000000000000000000000007F7F7F7F7F
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FBFBFBFBFBFBFFFFF
- FFBFBFBFFFFFFFBFBFBF7F7F7FBFBFBFFFFFFF7F7F7F7F7F7F7F7F7F7F7F7F7F
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F007F7F007F7F007F7F007F7F007F7F
- 007F7FFFFFFF7F00007F00007F00007F00007F00000000000000007F7F7F7F7F
- 7F7F7F7FFFFFFFFFFFFFFFFFFF7F00007F00007F00007F00007F00007F7F7F7F
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFF007F7F
- 007F7F007F7FFFFFFFFFFFFF7F7F7FFFFFFF007F7F007F7F007F7F007F7F7F00
- 00FF00FF7F007F000000000000BFBFBFFFFFFFFFFFFFFFFFFF7F0000007F7F00
- 7F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
- 7F7F7F7F7F7F007F7F007F7F007F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFF007F
- 7F007F7F007F7F007F7F7F00007F007FFF00FF7F007F000000FFFFFFFFFFFFFF
- FFFFFFFFFF7F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
- 7F7F7FFFFFFF7F7F7F7F7F7F7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFF
- FF007F7F007F7FFFFFFF007F7F007F7F007F7F007F7F7F0000FF00FF7F007FFF
- 00FF000000FFFFFFFFFFFFFFFFFFFFFFFF7F0000007F7F007F7F007F7F007F7F
- 007F7F007F7F007F7F007F7F7F7F7F7F7F7FBFBFBF7F7F7F7F7F7FFFFFFF007F
- 7F007F7F007F7F7F7F7FFFFFFF007F7F007F7FFFFFFF007F7F007F7F007F7F00
- 7F7F7F00007F007FFF00FF7F007F000000FFFFFFFFFF00FFFFFFFFFF007F0000
- 007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F
- 7FBFBFBF7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7FFF
- FFFF007F7F007F7F007F7F007F7F7F0000FF00FF7F007FFF00FF000000FFFFFF
- FFFFFFFFFFFFFFFFFF7F0000007F7F007F7F007F7F007F7F007F7F007F7F007F
- 7F007F7F7F7F7F7F7F7FBFBFBF7F7F7F7F7F7FFFFFFF007F7F007F7F007F7F7F
- 7F7FFFFFFF007F7F007F7FFFFFFF007F7F007F7F007F7F007F7F7F00007F007F
- FF00FF7F007F000000FFFFFFFFFF00FFFFFFFFFF007F0000007F7F007F7F007F
- 7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F7FBFBFBF7F7F7FFF
- FFFF007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7FFFFFFF007F7F007F7F
- 007F7F007F7F7F0000FF00FF7F007FFF00FF000000FFFFFFFFFFFFFFFFFFFFFF
- FF7F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F
- 7F7FBFBFBF7F7F7F7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFFFF007F7F
- 007F7FFFFFFF007F7F007F7F007F7F007F7F7F00007F007FFF00FF7F007F0000
- 00FFFFFFFFFF00FFFFFFFFFF007F0000007F7F007F7F007F7F007F7F007F7F00
- 7F7F007F7F007F7F7F7F7FFFFFFF7F7F7FBFBFBF7F7F7FFFFFFF007F7F007F7F
- 007F7F7F7F7FFFFFFF007F7F007F7FFFFFFF007F7F007F7F007F7F007F7F7F00
- 00FF00FF7F007FFF00FF000000FFFF00FFFFFFFFFF00FFFFFF7F0000007F7F00
- 7F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7F7F7F7FBFBFBF7F7F7F
- 7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFFFF007F7F007F7FFFFFFF007F
- 7F007F7F007F7F007F7F7F00007F007FFF00FF7F007F000000FFFFFFFFFF00FF
- FFFFFFFF007F0000007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
- 7F7F7FFFFFFF7F7F7FBFBFBF7F7F7FFFFFFF007F7F007F7F007F7F7F7F7FFFFF
- FF007F7F007F7FFFFFFF007F7F007F7F007F7F007F7F7F0000FF00FF7F007FFF
- 00FF000000FFFF00FFFFFFFFFF00FFFFFF7F0000007F7F007F7F007F7F007F7F
- 007F7F007F7F007F7F007F7F7F7F7F7F7F7FBFBFBF7F7F7F7F7F7FFFFFFF007F
- 7F007F7F007F7F7F7F7FFFFFFF007F7F007F7FFFFFFF007F7F007F7F007F7F00
- 7F7F7F00007F00007F00007F00007F00007F00007F00007F00007F00007F0000
- 007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFF7F7F
- 7FFFFFFF7F7F7FFFFFFFFFFFFFFFFFFFFFFFFF7F7F7FFFFFFF007F7F007F7FFF
- FFFF007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F
- 007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F
- 7F007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F
- 7F7F007F7F007F7F007F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F
- 000000000000000000000000000000000000007F7F007F7F007F7F007F7F007F
- 7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7FFFFFFFFFFFFFFF
- FFFFFFFFFFFFFFFFFFFFFF007F7F007F7F007F7F007F7FFFFFFF007F7F007F7F
- 007F7F007F7F007F7F007F7F00000000FF0000FF0000FF0000FF00000000007F
- 7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
- 7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7FFFFFFF007F7F007F7F007F7F
- 007F7FFFFFFF007F7F007F7F007F7F007F7F007F7F007F7F0000000000000000
- 00000000000000000000007F7F007F7F007F7F007F7F007F7F007F7F007F7F00
- 7F7F007F7F007F7F007F7F007F7F7F7F7FFFFFFFFFFFFFFFFFFFFFFFFF7F7F7F
- FFFFFF007F7F007F7F007F7F007F7FFFFFFF}
- NumGlyphs = 2
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- Spacing = -1
- OnClick = SpeedButton1Click
- end
- object Label5: TLabel
- Left = 502
- Top = 373
- Width = 47
- Height = 14
- Caption = '&SQL style'
- ParentShowHint = False
- ShowHint = False
- end
- object Memo1: TMemo
- Left = 6
- Top = 23
- Width = 478
- Height = 149
- ParentShowHint = False
- ShowHint = False
- TabOrder = 8
- end
- object cboxChangeAlias: TCheckBox
- Left = 500
- Top = 254
- Width = 105
- Height = 17
- Caption = '&Can change alias'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- State = cbChecked
- TabOrder = 1
- end
- object cboxUpdateQueries: TCheckBox
- Left = 500
- Top = 272
- Width = 95
- Height = 17
- Caption = '&Update queries'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 2
- end
- object cboxDeleteQueries: TCheckBox
- Left = 500
- Top = 291
- Width = 105
- Height = 17
- Caption = '&Delete queries'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 3
- end
- object DBGrid1: TDBGrid
- Left = 6
- Top = 197
- Width = 478
- Height = 196
- DataSource = DataSource1
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 9
- TitleFont.Color = clBlack
- TitleFont.Height = -13
- TitleFont.Name = 'Arial'
- TitleFont.Style = []
- end
- object cboxShowSysTables: TCheckBox
- Left = 500
- Top = 346
- Width = 112
- Height = 17
- Caption = '&Show system tables'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- TabOrder = 6
- end
- object cboxCanModify: TCheckBox
- Left = 500
- Top = 309
- Width = 109
- Height = 17
- Caption = '&Enable query mods'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- State = cbChecked
- TabOrder = 4
- end
- object cboxAutoGroupby: TCheckBox
- Left = 500
- Top = 328
- Width = 105
- Height = 17
- Caption = '&Auto GroupBy'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- State = cbChecked
- TabOrder = 5
- end
- object cbSQLStyle: TComboBox
- Left = 552
- Top = 367
- Width = 57
- Height = 22
- Style = csDropDownList
- DropDownCount = 4
- ItemHeight = 14
- Items.Strings = (
- 'Sql89'
- 'Local'
- 'Sql92'
- 'Auto')
- ParentShowHint = False
- ShowHint = False
- TabOrder = 7
- end
- object rbQueryStartup: TRadioGroup
- Left = 494
- Top = 178
- Width = 121
- Height = 71
- Caption = ' SQLBuilder Options '
- ItemIndex = 1
- Items.Strings = (
- '&Reload last query'
- 'Use Query &Wizard')
- ParentShowHint = False
- ShowHint = False
- TabOrder = 0
- end
- object Query1: TQuery
- Left = 4
- Top = 178
- end
- object DataSource1: TDataSource
- DataSet = Query1
- Left = 32
- Top = 178
- end
- object SQLBuilder1: TSQLBuilder
- Alias = 'DBDEMOS'
- Options = [sbAllowUpdates, sbAllowDeletes, sbAllowChangeAlias, sbEnableEditor]
- QueryType = SelectQuery
- AutoloadLastQuery = True
- SQLType = SqlAuto
- AutoGroup = True
- UseWizardOnShow = False
- Left = 435
- Top = 213
- end
- end
-